home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ncalc / ncalcglb.bas < prev   
Encoding:
BASIC Source File  |  1995-05-09  |  2.6 KB  |  89 lines
  1. ' Global module for ncalc
  2. '
  3.  
  4.  
  5.  
  6.  
  7. Declare Function getfocus Lib "User" () As Integer
  8. Declare Function sendmessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  9.  
  10. '  Button Control Messages
  11.  
  12. Global Const WM_USER = &H400
  13.  
  14. Global Const BM_GETCHECK = WM_USER + 0
  15. Global Const BM_SETCHECK = WM_USER + 1
  16. Global Const BM_GETSTATE = WM_USER + 2
  17. Global Const BM_SETSTATE = WM_USER + 3
  18. Global Const BM_SETSTYLE = WM_USER + 4
  19.  
  20. ' KeyCode (KeyDown, KeyUp) - from CONSTANTS.TXT
  21. Global Const KEY_LBUTTON = &H1
  22. Global Const KEY_RBUTTON = &H2
  23. Global Const KEY_CANCEL = &H3
  24. Global Const KEY_MBUTTON = &H4         ' NOT contiguous with L & RBUTTON
  25. Global Const KEY_BACK = &H8
  26. Global Const KEY_TAB = &H9
  27. Global Const KEY_CLEAR = &HC
  28. Global Const KEY_RETURN = &HD
  29. Global Const KEY_SHIFT = &H10
  30. Global Const KEY_CONTROL = &H11
  31. Global Const KEY_MENU = &H12
  32. Global Const KEY_PAUSE = &H13
  33. Global Const KEY_CAPITAL = &H14
  34. Global Const KEY_ESCAPE = &H1B
  35. Global Const KEY_SPACE = &H20
  36. Global Const KEY_PRIOR = &H21
  37. Global Const KEY_NEXT = &H22
  38. Global Const KEY_END = &H23
  39. Global Const KEY_HOME = &H24
  40. Global Const KEY_LEFT = &H25
  41. Global Const KEY_UP = &H26
  42. Global Const KEY_RIGHT = &H27
  43. Global Const KEY_DOWN = &H28
  44. Global Const KEY_SELECT = &H29
  45. Global Const KEY_PRINT = &H2A
  46. Global Const KEY_EXECUTE = &H2B
  47. Global Const KEY_SNAPSHOT = &H2C
  48. Global Const KEY_INSERT = &H2D
  49. Global Const KEY_DELETE = &H2E
  50. Global Const KEY_HELP = &H2F
  51.  
  52. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  53. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  54.  
  55. Global Const KEY_NUMPAD0 = &H60
  56. Global Const KEY_NUMPAD1 = &H61
  57. Global Const KEY_NUMPAD2 = &H62
  58. Global Const KEY_NUMPAD3 = &H63
  59. Global Const KEY_NUMPAD4 = &H64
  60. Global Const KEY_NUMPAD5 = &H65
  61. Global Const KEY_NUMPAD6 = &H66
  62. Global Const KEY_NUMPAD7 = &H67
  63. Global Const KEY_NUMPAD8 = &H68
  64. Global Const KEY_NUMPAD9 = &H69
  65. Global Const KEY_MULTIPLY = &H6A
  66. Global Const KEY_ADD = &H6B
  67. Global Const KEY_SEPARATOR = &H6C
  68. Global Const KEY_SUBTRACT = &H6D
  69. Global Const KEY_DECIMAL = &H6E
  70. Global Const KEY_DIVIDE = &H6F
  71. Global Const KEY_F1 = &H70
  72. Global Const KEY_F2 = &H71
  73. Global Const KEY_F3 = &H72
  74. Global Const KEY_F4 = &H73
  75. Global Const KEY_F5 = &H74
  76. Global Const KEY_F6 = &H75
  77. Global Const KEY_F7 = &H76
  78. Global Const KEY_F8 = &H77
  79. Global Const KEY_F9 = &H78
  80. Global Const KEY_F10 = &H79
  81. Global Const KEY_F11 = &H7A
  82. Global Const KEY_F12 = &H7B
  83. Global Const KEY_F13 = &H7C
  84. Global Const KEY_F14 = &H7D
  85. Global Const KEY_F15 = &H7E
  86. Global Const KEY_F16 = &H7F
  87. Global Const KEY_NUMLOCK = &H90
  88.  
  89.